﻿<%
'''是否调试模式
If VarType(ASHAPO_DEBUG) = vbEmpty Then
	ASHAPO_DEBUG = False
End If

'''站点根目录
If VarType(ASHAPO_ROOT_PATH) = vbEmpty Then
	ASHAPO_ROOT_PATH = ""
End If

'''
If VarType(ASHAPO_APP_PATH) = vbEmpty Then
	ASHAPO_APP_PATH = ASHAPO_ROOT_PATH & "/Apps"
End If

'''核心目录
If VarType(ASHAPO_CORE_PATH) = vbEmpty Then
	ASHAPO_CORE_PATH = ASHAPO_ROOT_PATH & "/Ashapo"
End If

'''运行时目录
If VarType(ASHAPO_RUNTIME_PATH) = vbEmpty Then
	ASHAPO_RUNTIME_PATH = ASHAPO_ROOT_PATH & "/Data/Runtime"
End If
%>
<!--#include file="Common/functions.asp"-->
<!--#include file="Library/Ashapo/AshapoConfig.class.asp"-->
<!--#include file="Library/Ashapo/AshapoPreg.class.asp"-->
<!--#include file="Library/Ashapo/AshapoFso.class.asp"-->
<!--#include file="Library/Ashapo/AshapoLog.class.asp"-->
<!--#include file="Library/Ashapo/AshapoConsole.class.asp"-->
<!--#include file="Library/Ashapo/AshapoString.class.asp"-->
<!--#include file="Library/Ashapo/AshapoAsp.class.asp"-->
<!--#include file="Library/Ashapo/AshapoRequest.class.asp"-->
<!--#include file="Library/Ashapo/AshapoSa.class.asp"-->
<%Dim Sa : Set Sa = New AshapoSa%>
<!--#include file="Conf/convention.asp"-->
<%If ASHAPO_DEBUG Then%>
<!--#include file="Conf/debug.asp"-->
<%End If%>
<%Sa.Init() : Set Sa = Nothing%>